0 REMSAVE"ORDER FORM",8
10 PRINT"[147][155]":POKE53281,0:POKE53280,4:
15 S$ ="                           "
18 T$=S$:GOSUB60000
20 T$=" [204][207][193][196][211][212][193][210][160]ORDER FORMS MENU ":GOSUB60000
28 T$=S$:GOSUB60000:PRINT
30 PRINT"      1 = [211]UBSCRIBE TO [204][207][193][196][211][212][193][210]":PRINT
40 PRINT"      2 = [211]UBSCRIBE TO [208][207][215][197][210][160][208][204][193][217]/"
50 PRINT"         [160][195][207][205][205][207][196][207][210][197][160][205][201][195][210][207][195][207][205][208][213][212][197][210][211]":PRINT
60 PRINT"      3 = [207]THER [204][207][193][196][211][212][193][210][160]PRODUCTS.":PRINT
70 PRINT"      4 = BACK TO [204][207][193][196][211][212][193][210]"
100 GETK$:IFK$<"1"ORK$>"4"THEN100
200 ONVAL(K$)GOTO1000,2000,3000,4000
1000 P$="ORDER BLANK-LS":GOTO63000
2000 P$="ORDER BLANK-PA":GOTO63000
3000 P$="ORDER BLANK-PR":GOTO63000
4000 P$="HELLO":GOTO63000
50000 END
60000 PRINTTAB(20-LEN(T$)/2);T$:RETURN
63000 REM CONNECTIONS
63010 PRINT"[147]LOAD"CHR$(34)P$CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END